home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / rpp.lha / rpp / src / Scanner.md < prev    next >
Text File  |  1992-08-18  |  716b  |  33 lines
  1. (* $Id: Scanner.md,v 2.3 1992/08/18 09:05:32 grosch rel $ *)
  2.  
  3. DEFINITION MODULE Scanner;
  4.  
  5. IMPORT Strings;
  6.  
  7. (* line 1 "rpp.rex" *)
  8.  
  9. FROM    Positions    IMPORT    tPosition;
  10.  
  11. TYPE tScanAttribute    = RECORD Position: tPosition; END;
  12.  
  13. VAR InfoFileName    : ARRAY [0..255] OF CHAR;
  14.  
  15.  
  16. CONST EofToken    = 0;
  17.  
  18. VAR TokenLength    : INTEGER;
  19. VAR Attribute    : tScanAttribute;
  20. VAR ScanTabName    : ARRAY [0 .. 127] OF CHAR;
  21. VAR Exit    : PROC;
  22.  
  23. PROCEDURE BeginScanner    ;
  24. PROCEDURE BeginFile    (FileName: ARRAY OF CHAR);
  25. PROCEDURE GetToken    (): INTEGER;
  26. PROCEDURE GetWord    (VAR Word: Strings.tString);
  27. PROCEDURE GetLower    (VAR Word: Strings.tString);
  28. PROCEDURE GetUpper    (VAR Word: Strings.tString);
  29. PROCEDURE CloseFile    ;
  30. PROCEDURE CloseScanner    ;
  31.  
  32. END Scanner.
  33.